10 *=$C000
12 LDA #$37
14 STA $01
20 JSR GTNUM
30 STA $FB
40 STY $FC
50 JSR GTNUM
60 STA $FD
70 STY $FE
80 JSR GTNUM
90 LDX #$00
100 LDY $FB
110 STX $FB
120 CPYLP ;COPY LOOP
130 STA ($FB),Y
140 INY
150 BNE NT0
160 INC $FC
170 NT0 CPY $FD
180 BNE CPYLP
190 LDX $FC
200 CPX $FE
210 BCC CPYLP
220 RTS
230 GTNUM JSR $E20E
240 JSR $AD9E
250 JSR $B7F7
260 LDA $14
270 LDY $15
280 RTS